Author: pre-installed user

001 %(I)=199;G=1+&(28)|divided_by|30;print "LEVEL1-9?",G;N=150-15|*|G;gosub 20;goto 1+11|*|(TR(1)=1)
002 box 1,-3,26,25,1;return 
003 box 2,27,1,1,R;box 1,19,3,1,3;box 1,20,1,1,3;return 
004 box 1,20,3,2,R;box 1,15,3,2,3;box -1,14,1,2,3;box 3,14,1,2,3;box 1,17,1,2,3;return 
005 box 1,15,5,5,R;box 1,11,4,4,3;box 1,11,6,1,3;box -3,9,1,2,3;box 4,9,1,2,3;box 1,14,2,4,3;return 
006 box 1,12,8,8,R;box 1,7,6,6,3;box 1,8,10,2,3;box 6,4,2,3,3;box -4,4,2,3,3;box 1,11,2,5,3;return 
007 box 1,8,12,11,R;box 1,3,10,9,3;box 1,4,14,3,3;box 8,-1,3,5,3;box -7,-1,3,5,3;box 1,10,4,8,3;return 
008 box 1,5,18,17,R;box 1,-5,12,14,3;box 1,-5,18,5,3;box 11,-12,6,7,3;box -9,-12,6,7,3;box 1,4,4,12,3;return 
009 gosub 2;box 1,-22,6,10,3;box 1,-24,14,13,1;|down_arrow|;return 
010 F=5;gosub 11;for Z=1to 17;box A,38,5,3,2;A=A+U;box A,38,3,3,1;box A,38,5,1,3;next Z;return 
011 VA=6;TA=15+(F|*|2);VR=25|*|F;VF=25|*|F;return 
012 gosub 20;L=1;&(0)=0;&(1)=0;&(2)=146;&(3)=146;&(9)=37;M=0;W=0;C=1;gosub 2
013 if Qprint "    BONUS LANDER";W=W-1;Q=0;M=M+500
014 CX=22;print "* S=",#1,M;R=1;if W=4goto 21
015 O=0;gosub 31;A=89;box -41,-10,6,9,1;W=W+1;for X=2to 8;VB=X;gosub X;T=1127-128|*|X+rnd (128);CX=-38;print " * R=",#4,T
016 for J=1to N;if TR(1)D=80+((91-A)|*|10);H=A|divided_by|25+1;NM=1;NV=75;VA=10;goto 26
017 K=JY(1);B=A+K;if (B>89)+(B<0)goto 19
018 A=B;print " E=",#3,A;D=A|divided_by|10-14;B=A|divided_by|10;E=1+1|*|(K=-1);if RM=5box -41,D+E-1,6,2,E
019 F=101;gosub 11;VA=X;next J;next X;gosub 9;goto 13
020 box 0,-40,160,8,2;return 
021 gosub 20;if M>2000print "YOU WIN";goto 24
022 print "YOU LOSE";C=-41;X=1;H=22;for K=1to 2;XY=6468;line -41,-23,3;next K;gosub 29;L=4;gosub 31;for K=1to 4
023 for X=3to 9;VB=X-2;TB=170;gosub X;next X;gosub 33;next K;X=2;gosub 30
024 if TR(1)goto 1
025 goto 24
026 for P=1to Dstep 5;TA=100-P|divided_by|10;next P;|down_arrow|;if T>=Dif T<=D+9Q=(O<6-G);R=8;M=M+(1000-O|*|50);H=X|*|4;gosub 29;goto 13
027 Z=ABS(T-D);Y=Z|divided_by|66;Y=Y+*(X);if T>D Y=*(X+8)-Z|divided_by|18
028 F=X;gosub 11;for P=1to 10;box 1,Y,rnd (H),rnd (H),3;next P;|down_arrow|;O=O+1;box 1,Y,H,H,1;goto 19
029 for A=17to 22;NM=3;NV=255;E=*(X+8);line C+rnd (2|*|H)-H,E+rnd (H),4=XY;FC=7;*(A)=XY;line C,E,3;FC=90;|down_arrow|;next A;if H=22return 
030 for A=17to 22;XY=*(A);line C,E,3;next A;gosub X;return 
031 A=2;U=4;gosub 10;for P=1to L;for Z=26to 38;F=10;gosub 11;box 77,Z,1,1,3;box 77,Z-1,1,1,1;next Z;for Z=76to 70step -1
032 box Z,38,1,1,3;box Z+1,38,1,1,3;next Z;next P;U=-U;gosub 10
033 for Z=37to 27step -2;F=9;gosub 11;box 2,Z,1,1,3;box 2,Z,1,1,2;next Z;|down_arrow|;return